#!/usr/bin/perl5 -w
#use strict;

#chomp(my $date=`date`);
$^I=".bak";

while(<>){
	s/^Author:.*/Author:Randal L.Schwartz/;
	s/^Phone:.*\n//;
	#s/^Date:.*/Date:$date/;
	print;
}